home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / misc / cpk_26.lha / cpk / ARexx / test.cpk < prev    next >
Encoding:
Text File  |  1994-09-23  |  4.9 KB  |  232 lines
  1. /*
  2.  * CPK ARexx communications test...
  3.  *
  4.  * Author: Eric G. Suchanek, Ph.D.
  5.  * Copyright © 1993, 1994 Eric G. Suchanek, Ph.D. All Rights Reserved
  6.  *
  7.  * You must launch cpk first to run this script.
  8.  * 
  9.  */
  10.  
  11. Options FailAt 100
  12.  
  13. Options Results
  14.  
  15. /* make sure cpk is running */
  16.  
  17. CALL Locate_CPK
  18.  
  19. IF RESULT = 1 THEN SAY "CPK has been found"
  20. ELSE 
  21.  do
  22.   SAY "Could not locate or start CPK"
  23.   EXIT
  24.  end
  25. endif
  26.  
  27.  
  28. address cpk1
  29. /*
  30.  * Try to read the window title bar
  31.  */
  32.  
  33. /* 
  34.    NOTE: The Port command actually sets the errorlevel to 5,
  35.    so you have to check for an 'error' to get the port name... 
  36. */
  37.  
  38. 'Port'
  39.  
  40. if rc > 0 then say 'Port is: 'CPK.LASTERROR
  41. else say 'Port is: 'Result
  42.  
  43. /*
  44.  * bogus command
  45.  */
  46.  
  47. 'Junk'
  48.  
  49. if rc > 0 then say 'Error was (this should be an UNKNOWN COMMAND error) 'CPK.LASTERROR
  50. else say 'The command worked!'
  51.  
  52.  
  53. /*
  54. "Load Prefs prefs/b_dna.prefs"
  55. if rc > 0 then say 'Error was 'CPK.LASTERROR
  56. else say 'The command worked!'
  57. */
  58.  
  59.  
  60. "Load PDB pdb/hello.pdb"
  61. if rc > 0 then say 'Error was 'CPK.LASTERROR
  62. else say 'The Load PDB command worked!'
  63.  
  64. "XRot 45.0"
  65. if rc > 0 then say 'Error was 'CPK.LASTERROR
  66. else say 'The XRot command worked!'
  67.  
  68. "YRot 35.0"
  69. if rc > 0 then say 'Error was 'CPK.LASTERROR
  70. else say 'The YRot command worked!'
  71.  
  72. "ZRot 25.0"
  73. if rc > 0 then say 'Error was 'CPK.LASTERROR
  74. else say 'The ZRot command worked!'
  75.  
  76. 'Render'
  77.  
  78. /* or, more compactly, use the ROTATE command */
  79. "Rotate 20.0 30.0 40.0"
  80. if rc > 0 then say 'Error was 'CPK.LASTERROR
  81. else say 'The Rotate command worked!'
  82.  
  83. 'Render'
  84. if rc > 0 then say 'Error was 'CPK.LASTERROR
  85. else say 'The Render command worked!'
  86.  
  87. 'Reset'
  88. if rc > 0 then say 'Error was 'CPK.LASTERROR
  89. else say 'The Reset command worked!'
  90.  
  91. 'Render'
  92. if rc > 0 then say 'Error was 'CPK.LASTERROR
  93. else say 'The Render command worked!'
  94.  
  95. 'Scale 3'
  96. if rc > 0 then say 'Error was 'CPK.LASTERROR
  97. else say 'The Scale command worked!'
  98. 'Render'
  99.  
  100. "Load PDB pdb/heme.pdb"
  101. if rc > 0 then say 'Error was 'CPK.LASTERROR
  102. else say 'The Load PDB command worked!'
  103.  
  104. 'PhotoMode ON'
  105. if rc > 0 then say 'Error was 'CPK.LASTERROR
  106. else say 'The PhotoMode ON command worked!'
  107.  
  108. 'VectorMode ON'
  109. if rc > 0 then say 'Error was 'CPK.LASTERROR
  110. else say 'The VectorMode ON command worked!'
  111.  
  112. 'SwapColors ON'
  113. if rc > 0 then say 'Error was 'CPK.LASTERROR
  114. else say 'The SwapColors ON command worked!'
  115.  
  116. /* valid range for SCALE is 1 -> 20 */
  117.  
  118. 'Scale 21'
  119. if rc > 0 then say 'Error was (should be an Argument Error) 'CPK.LASTERROR
  120. else say 'The Scale command worked!'
  121.  
  122. 'VectorMode OFF'
  123. if rc > 0 then say 'Error was 'CPK.LASTERROR
  124. else say 'The VectorMode ON command worked!'
  125.  
  126. 'BallStickMode ON'
  127. if rc > 0 then say 'Error was 'CPK.LASTERROR
  128. else say 'The BallStickMode ON command worked!'
  129.  
  130. 'Save IFF ram:test.iff'
  131. if rc > 0 then say 'Error was 'CPK.LASTERROR
  132. else say 'The Save IFF command worked!'
  133.  
  134. 'Save PREFS ram:test.prefs'
  135. if rc > 0 then say 'Error was 'CPK.LASTERROR
  136. else say 'The Save Prefs command worked!'
  137.  
  138. /* Play with the POV-Ray menu items */
  139.  
  140. 'Checkerboard Off'
  141. if rc > 0 then say 'Error was  'CPK.LASTERROR
  142. else say 'The Checkerboard OFF command worked!'
  143.  
  144. 'Sky Off'
  145. if rc > 0 then say 'Error was  'CPK.LASTERROR
  146. else say 'The Checkerboard OFF command worked!'
  147.  
  148. 'AreaLights ON'
  149. if rc > 0 then say 'Error was  'CPK.LASTERROR
  150. else say 'The AreaLights ON command worked!'
  151.  
  152. 'Radius bogus'
  153. if rc > 0 then say 'Error was (should be bad argument) 'CPK.LASTERROR
  154. else say 'The Radius bogus command worked!'
  155.  
  156. 'Radius CPK'
  157. if rc > 0 then say 'Error was 'CPK.LASTERROR
  158. else say 'The Radius VDW command worked!'
  159.  
  160. 'Radius COVALENT'
  161. if rc > 0 then say 'Error was 'CPK.LASTERROR
  162. else say 'The Radius COVALENT command worked!'
  163.  
  164. 'Radius BALLSTICK'
  165. if rc > 0 then say 'Error was 'CPK.LASTERROR
  166. else say 'The Radius BALLSTICK command worked!'
  167.  
  168. 'Radius BALLSTICKGLASS'
  169. if rc > 0 then say 'Error was 'CPK.LASTERROR
  170. else say 'The Radius BALLSTICKGLASS command worked!'
  171.  
  172. 'AreaLights OFF'
  173. if rc > 0 then say 'Error was  'CPK.LASTERROR
  174. else say 'The AreaLights OFF command worked!'
  175.  
  176. 'Checkerboard ON'
  177. if rc > 0 then say 'Error was  'CPK.LASTERROR
  178. else say 'The Checkerboard ON command worked!'
  179.  
  180. 'Sky ON'
  181. if rc > 0 then say 'Error was  'CPK.LASTERROR
  182. else say 'The Sky ON command worked!'
  183.  
  184. 'Radius VDW'
  185. if rc > 0 then say 'Error was  'CPK.LASTERROR
  186. else say 'Radius VDW command worked!'
  187.  
  188. 'PDB2POV'
  189. if rc > 0 then say 'Error was 'CPK.LASTERROR
  190. else say 'The Pdb2POV command worked!'
  191.  
  192. /* OK, set up a real scene to 'render' */
  193. "rotate 45.0 45.0 45.0"
  194. if rc > 0 then say 'Error was 'CPK.LASTERROR
  195.  
  196. /* this 'render' is not really necessary, but synchronizes the
  197.    CPK display to our 'scene' 
  198. */
  199.  
  200. 'PhotoMode OFF'
  201. if rc > 0 then say 'Error was 'CPK.LASTERROR
  202.  
  203. 'render'
  204.  
  205. /* run POV-Ray */
  206. /*
  207. 'Radius BALLSTICK'
  208. 'POVRAY'
  209. if rc > 0 then say 'Error was 'CPK.LASTERROR
  210. else say 'The POV-Ray command worked!'
  211. */
  212.  
  213. /*
  214.  * Quit the program...
  215.  */
  216.  
  217. /*
  218. 'Quit'
  219. if rc > 0 then say 'Error was 'CPK.LASTERROR
  220. else say 'The Quit command worked!'
  221. */
  222.  
  223. exit
  224.  
  225. Locate_CPK:
  226. if POS('CPK' , SHOW('Ports')) = 0 then 
  227.     return 0
  228. else
  229.     return 1
  230. end if
  231.  
  232.